-- background: 2739 from stack: in
-- bmap block id: 3242
-- flags: 0000
-- background id: 0
-- name: Main
----- HyperTalk script -----
on idle
  global DSTSeason, DSTObservedThere


  -- calculate the raw time there, in seconds
  put the seconds + ((fld "GMTThere" - fld "GMTHere" of card "Title Card") * 3600) into tmp

  -- if it is DST Season, we need to check whether DST is observed
  -- here, and whether it is observed there. If they are the same, i.e.
  -- both observe it or both don't, then the raw time is OK, otherwise
  -- need to add or subtract an hour

  if DSTSeason  = "DST" then
    if bg fld "DSTObservedHere" of card "Title Card" ≠ DSTObservedThere then
      if DSTObservedThere = "DST" then
        add 3600 to tmp
      else
        subtract 3600 from tmp
      end if
    end if
  end if

  convert tmp to time
  put "Time HERE:" && the time into fld "TimeHere"
  put "Time THERE:" && tmp into fld "TimeThere"
  pass idle
end idle


-- part 35 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=14 top=77 right=96 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
-- This button MUST be bg button 1



-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=182 top=238 right=280 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIND
----- HyperTalk script -----

on mouseUp
  Ask "Find what?"
  if it is not empty and the result is not "Cancel" then
    put it into findString
    put "Find " & quote & findString & quote into msg
    find findString
    if the result is not empty then
      answer findString && "not found."
    end if
  end if
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=109 top=54 right=73 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: State, Province, Area


-- part 4 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=160 top=77 right=96 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Country


-- part 6 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=160 top=99 right=119 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Country Code


-- part 7 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=322 top=99 right=119 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Area/City Code


-- part 9 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=14 top=122 right=147 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: USA/CANADA Cities in this Area Code or International Cities and Codes


-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=159 top=246 right=268 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 17779 / 17779
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual wipe right to card
  go to previous card
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=256 top=246 right=269 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 8419 / 8419
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual wipe left to card
  go to next card
end mouseUp



-- part 19 (field)
-- low flags: 01
-- high flags: 6007
-- rect: left=14 top=146 right=233 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: City Names


-- part 22 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=259 top=54 right=73 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: State


-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=253 top=99 right=119 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Country Code


-- part 24 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=435 top=99 right=119 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Area/City Code


-- part 25 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=226 top=77 right=96 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Country


-- part 29 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=15 top=232 right=274 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go card "Help"
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=77 top=232 right=274 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Up
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  go card "Title Card"
  send mouseUp to button "Personalize"
  go back
  set lockScreen to false
end mouseUp



-- part 32 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=160 top=31 right=50 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: TimeHere


-- part 33 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=318 top=31 right=50 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: TimeThere


-- part 34 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=105 top=18 right=41 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GMTThere


-- part 39 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=14 top=99 right=119 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Intl. Access: Dial 011


-- part 40 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=73 top=267 right=281 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Personalize


-- part 41 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=26 top=267 right=281 bottom=70
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help


-- part 42 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=285 top=245 right=270 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return to Title Card
----- HyperTalk script -----
on mouseUp
  go card "Title Card"
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=423 top=235 right=280 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 3071 / 3071
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Quit HyperCard
----- HyperTalk script -----
on mouseUp
  doMenu "Quit HyperCard"
end mouseUp